home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPL13.POM < prev    next >
Text File  |  1995-04-07  |  889b  |  24 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Output the line only if we're processing.  For the purposes of this demon-
  7. ;   stration, we'll put two X's at the end of each line so that when you look
  8. ;   at it with our file viewer, you can see how each line has been padded to
  9. ;   80 characters.
  10. ;
  11. BEGIN process = "Y"
  12.   PAD $FLINE "R" " " "78" 
  13.   PAD $FLINE "R" "X" "80"
  14.   OUT |{$FLINE}
  15. END
  16. ;
  17. ;   See if we've reached the dashed line, yet.  Until a variable is set
  18. ;   (in this case, the variable is named "process"), it is null ("").
  19. ;   We do the test here at the end of the POM file, instead of at the
  20. ;   beginning, since we don't include the dashed line itself as a line
  21. ;   to be processed.
  22. ;
  23. IF $FLINE[1 7] = "-------" THEN process = "Y"
  24.